home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / WORK.SAB < prev   
Text File  |  1991-10-15  |  2KB  |  54 lines
  1. label start
  2. cls
  3. display cp.dis
  4. write "WORK.SAB" AT 2,36
  5. Write "Work Orders" at 5,34
  6. set v opn to ""
  7. write "A...... Enter A New Work Order                    " at 8,10
  8. write "B...... Run Report Of Uncompleted Work Orders     " at 9,10
  9. write "C...... Enter Work Order Completion Date(s)       " at 10,10
  10. write ".......                                           " at 11,10
  11. write ".......                                           " at 12,10
  12. write ".......                                           " at 13,10
  13. fil opn usi "Enter Selection, ADD.CODE, Order Number Or <ESC>  " at 15,10
  14. if opn = "" then ; goto fin ; endif
  15. if opn = "a" or opn = "A" then ; goto opa ; endif
  16. if opn = "b" or opn = "B" then ; goto opb ; endif
  17. if opn = "c" or opn = "C" then ; goto opc ; endif
  18. edit using edwork where add.code = .opn
  19. edit using edwork where ord.numb = .opn
  20. goto start
  21. label opa
  22.   enter newwork
  23.   goto start
  24. label opb
  25.   out pri
  26.   print work where done fails
  27.   out scr
  28.   goto start
  29. label opc
  30.  set v whch to ""
  31.   cls
  32.   display cp.dis
  33.   write "WORK.SAB" at 2,36
  34.   fillin whch using "Enter Entire Order Number (Or <ESC>)  -> " at 10,10
  35.   if whch = "" then ; goto start ; endif
  36.   set v nam to tenant1 in work where ord.numb = .whch
  37.   set v adr to address in work where ord.numb = .whch
  38.   set v don to done in work where ord.numb = .whch
  39.   write .nam at 12,10
  40.   write .adr at 13,10
  41.   write .don at 14,10
  42.   set v y/n to ""
  43.   fillin y/n using "Is This The Work Order To Clear?  " at 16,10
  44.   if y/n = "y" or y/n = "Y" then ; goto yes ; endif
  45.   goto opc
  46. label yes
  47.   change done to .#date in work where ord.numb = .whch
  48.   goto start
  49. label fin
  50.   cls
  51.   clear all v
  52.   return
  53.  
  54.